\( \DeclareMathOperator{\abs}{abs} \newcommand{\ensuremath}[1]{\mbox{$#1$}} \)
(%i1) | assume ( G > 0 , M > 0 , r0 > 3 · G · M ) ; |
(%i2) | assume ( rm > 0 , rm < r0 ) ; |
(%i3) | assume ( rp > 0 , rp > r0 ) ; |
(%i4) | frm : 1 − 2 · G · M / rm ; |
(%i5) | frp : 1 − 2 · G · M / rp ; |
(%i6) | fr0 : 1 − 2 · G · M / r0 ; |
(%i7) | drm_dt : − sqrt ( 2 · G · M · ( 1 / rm − 1 / r0 ) ) ; /* Eq.[25] */ |
(%i8) | dt_drm : 1 / drm_dt ; |
(%i9) | δtm : integrate ( dt_drm , rm , r0 , rm ) ; |
(%i10) | δrm : drm_dt · δtm ; |
(%i11) | drp_dt : ( 1 / rp ) · sqrt ( 2 · G · M · ( r0 ^ 2 / rp − rp ^ 2 / r0 ) + rp ^ 2 − r0 ^ 2 ) ; /* Eq.[18] */ |
(%i12) | assume ( ε > 0 , χ12 > 0 ) ; |
(%i13) | χ12_a : drp_dt ^ 2 / drm_dt ^ 2 ; /* Eq.[18]²:Eq.[25]² */ |
(%i14) | χ1 : 1 ; |
(%i15) | χ12_b : subst ( rp = ( r0 + ε · abs ( χ1 ) ) , subst ( rm = ( r0 − ε ) , χ12_a ) ) ; |
(%i16) | χ12 : factor ( limit ( χ12_b , ε , 0 , plus ) ) ; |
(%i17) | χ1 : − χ12 ; |
(%i18) | χ12_b : subst ( rp = ( r0 + ε · abs ( χ1 ) ) , subst ( rm = ( r0 − ε ) , χ12_a ) ) ; |
(%i19) | χ12 : factor ( limit ( χ12_b , ε , 0 , plus ) ) ; |
(%i20) | χ1 : − sqrt ( χ12 ) ; |
(%i21) | δrp : χ1 · δrm ; |
(%i22) | dΘ_dt : ( r0 / rp ^ 2 ) · sqrt ( frp ) ; /* Eq.[31] */ |
(%i23) | drp_dt : ( 1 / rp ) · sqrt ( 2 · G · M · ( r0 ^ 2 / rp − rp ^ 2 / r0 ) + rp ^ 2 − r0 ^ 2 ) ; |
(%i24) | dΘ_drp : dΘ_dt / drp_dt ; /* Eq.[31]:Eq.[18] */ |
(%i25) | δΘ : dΘ_drp · δrp ; |
(%i26) | χ2a : r0 · δΘ ^ 2 / δrm ; |
(%i27) | χ2b : subst ( rp = ( r0 + ε · abs ( χ1 ) ) , subst ( rm = ( r0 − ε ) , χ2a ) ) ; |
(%i28) | χ2 : limit ( χ2b , ε , 0 , plus ) ; |
(%i29) | χ0 : ratsimp ( χ2 − χ1 ) ; |
Created with wxMaxima.